Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim ¥Է As Range
    
    Set ¥Է = Range("E4", Cells(Rows.Count, "B").End(xlUp).Offset(, 3))
    
    If Not Intersect(Target, ¥Է) Is Nothing Then
    
        If Len(Target.Value) = 0 Then
            
            Target.Value = Now
            
        End If
        
    End If

End Sub
